<!--#include file="verifycode.asp" --> 
<% 
Dim VC, Code 

Randomize 
Set VC = New NetRube_VerifyCode 
With VC 

Select Case Request.QueryString("type") 
Case "2" 
Code = Int(Rnd * 900000 + 100000) 
Session("helenCode") = Code 

.BGroundColor = "#FFFF00" 
.FGroundColor = "#FF0000" 
.VerifyCode Code, False 
.Noises 100, False 
.Write 
Case "3" 
Code = Int(Rnd * 90000 + 10000) 
Session("helenCode") = Code 

.BGroundColor = "#000000" 
.FGroundColor = "#FFFFFF" 
.VerifyCode Code, False 
.Noises 50, True 
.Write 
Case "4" 
Code = Int(Rnd * 90000 + 10000) 
Session("helenCode") = Code 

.BGroundColor = "#FFFFFF" 
.FGroundColor = "#000000" 
.VerifyCode Code, True 
.Noises 100, True 
.Write 
Case Else 
Code = Int(Rnd * 8000 + 1000) 
Session("helenCode") = Code 

.BGroundColor = "#ffffff" ' 
.FGroundColor = "#000000" ' 
.VerifyCode Code, False ' 
.Noises 50, False ' 
.Write ' 
End Select 

End With 
Set VC = Nothing 
%> 
